inherited FrmRel_Maiores: TFrmRel_Maiores
  Left = 168
  Top = 103
  Caption = 'Contas a Receber - Maiores Devedores'
  ClientHeight = 421
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Height = 248
    object Label10: TLabel
      Left = 7
      Top = 200
      Width = 109
      Height = 14
      Caption = 'Data Base p/ C'#225'lculo'
    end
    object Label2: TLabel
      Left = 256
      Top = 200
      Width = 77
      Height = 14
      Caption = 'Relacionar os '
    end
    object Label3: TLabel
      Left = 378
      Top = 200
      Width = 108
      Height = 14
      Caption = 'Maiores Devedores'
    end
    object BtnInsereDocumentos: TSpeedButton
      Left = 3
      Top = 4
      Width = 25
      Height = 18
      Hint = 'Insere um documento na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereDocumentosClick
    end
    object Label1: TLabel
      Left = 31
      Top = 6
      Width = 70
      Height = 14
      Caption = 'Documentos'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnInsereRepresentante: TSpeedButton
      Left = 155
      Top = 4
      Width = 25
      Height = 18
      Hint = 'Insere um novo representante na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereRepresentanteClick
    end
    object Label14: TLabel
      Left = 185
      Top = 8
      Width = 89
      Height = 14
      Caption = 'Representantes'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnInsereLocal: TSpeedButton
      Left = 3
      Top = 101
      Width = 25
      Height = 18
      Hint = 'Insere um novo local de cobran'#231'a na lista.'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      Layout = blGlyphRight
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = BtnInsereLocalClick
    end
    object Label13: TLabel
      Left = 33
      Top = 105
      Width = 106
      Height = 14
      Caption = 'Locais de cobran'#231'a'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ListaDoc: TCheckListBox
      Left = 2
      Top = 22
      Width = 142
      Height = 75
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      OnKeyDown = ListaDocKeyDown
    end
    object edtbase: TDateEdit
      Left = 123
      Top = 198
      Width = 103
      Height = 21
      NumGlyphs = 2
      TabOrder = 3
      OnKeyDown = edtbaseKeyDown
    end
    object ListaRepres: TCheckListBox
      Left = 154
      Top = 22
      Width = 375
      Height = 75
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 1
      OnKeyDown = ListaRepresKeyDown
    end
    object edtgrupo: TCheckBox
      Left = 336
      Top = 224
      Width = 193
      Height = 17
      Caption = 'Considerar Grupo Empres'#225'rial'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
    object numero_clientes: TEdit
      Left = 336
      Top = 198
      Width = 35
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 4
      OnKeyPress = numero_clientesKeyPress
    end
    object ListaLocal: TCheckListBox
      Left = 2
      Top = 120
      Width = 527
      Height = 75
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      OnKeyDown = ListaLocalKeyDown
    end
    object pnlRepr: TPanel
      Left = -433
      Top = 4
      Width = 449
      Height = 235
      BevelInner = bvLowered
      BorderWidth = 1
      Color = clGray
      TabOrder = 6
      Visible = False
      object Label23: TLabel
        Left = 8
        Top = 12
        Width = 121
        Height = 19
        Caption = 'Representantes'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold, fsUnderline]
        ParentFont = False
      end
      object dbgrdRepr: TDBGrid
        Left = 3
        Top = 40
        Width = 443
        Height = 192
        Align = alBottom
        DataSource = dtsrcRes
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnDblClick = dbgrdReprDblClick
        OnKeyDown = dbgrdReprKeyDown
        Columns = <
          item
            Expanded = False
            FieldName = 'Cod'
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Descr'
            Title.Caption = 'Nome'
            Width = 333
            Visible = True
          end>
      end
      object grBusca: TGroupBox
        Left = 8
        Top = 168
        Width = 433
        Height = 57
        Caption = ' Informe o Nome '
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        Visible = False
        object Label24: TLabel
          Left = 200
          Top = 40
          Width = 223
          Height = 14
          Caption = ' Tecle <F5> p/ localizar por C'#243'd. ou Nome'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object edNomeR: TEdit
          Left = 8
          Top = 16
          Width = 417
          Height = 22
          CharCase = ecUpperCase
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          OnKeyDown = edNomeRKeyDown
        end
      end
      object Panel8: TPanel
        Left = 227
        Top = 44
        Width = 185
        Height = 14
        Alignment = taRightJustify
        BevelOuter = bvNone
        Caption = '<F2> p/ localizar'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object BitBtn6: TBitBtn
        Left = 364
        Top = 10
        Width = 75
        Height = 25
        Caption = '&Fechar'
        TabOrder = 3
        OnClick = BitBtn6Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777788
          F8F878F7777777777333333F00004444400777FFF444447777777777F333FF7F
          000033334D5008FFF4333377777777773337777F0000333345D50FFFF4333333
          337F777F3337F33F000033334D5D0FFFF43333333377877F3337F33F00003333
          45D50FEFE4333333337F787F3337F33F000033334D5D0FFFF43333333377877F
          3337F33F0000333345D50FEFE4333333337F787F3337F33F000033334D5D0FFF
          F43333333377877F3337F33F0000333345D50FEFE4333333337F787F3337F33F
          000033334D5D0EFEF43333333377877F3337F33F0000333345D50FEFE4333333
          337F787F3337F33F000033334D5D0EFEF43333333377877F3337F33F00003333
          4444444444333333337F7F7FFFF7F33F00003333333333333333333333777777
          7777333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333777777F3333F00003333330000003333333333337FFFF7F3333F
          0000}
        NumGlyphs = 2
      end
    end
  end
  inherited Panel2: TPanel
    Top = 354
    inherited bimprimir: TFlatButton
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      OnClick = btncancelarClick
    end
  end
  inherited sb: TStatusBar
    Top = 402
  end
  inherited Panel3: TPanel
    object Label5: TLabel [1]
      Left = 168
      Top = 8
      Width = 311
      Height = 13
      Caption = 'R3 - Arquivo texto para relat'#243'rio de maiores devedores'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
  end
  object PnlTipoDocumento: TPanel [4]
    Left = 499
    Top = 48
    Width = 365
    Height = 225
    Color = clGray
    TabOrder = 4
    Visible = False
    OnExit = PnlTipoDocumentoExit
    object Label17: TLabel
      Left = 16
      Top = 8
      Width = 166
      Height = 20
      Caption = 'Tipo de Documentos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DbgTipoDocumento: TDBGrid
      Left = 1
      Top = 32
      Width = 363
      Height = 192
      Hint = 'Duplo clique para enviar conta para a listagem.'
      Align = alBottom
      Color = clTeal
      DataSource = DsTpDoc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DbgTipoDocumentoDblClick
      OnKeyDown = DbgTipoDocumentoKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'tipd_codigo'
          Width = 42
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'descricao'
          Width = 276
          Visible = True
        end>
    end
    object BtnSair: TBitBtn
      Left = 312
      Top = 4
      Width = 36
      Height = 25
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BtnSairClick
    end
  end
  object PnlLocalCobranca: TPanel [5]
    Left = 499
    Top = 100
    Width = 365
    Height = 225
    Color = clGray
    TabOrder = 5
    Visible = False
    OnExit = PnlLocalCobrancaExit
    object Label20: TLabel
      Left = 16
      Top = 8
      Width = 151
      Height = 20
      Caption = 'Local de Cobran'#231'a'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DbgLocalCobranca: TDBGrid
      Left = 1
      Top = 32
      Width = 363
      Height = 192
      Hint = 'Duplo clique para enviar conta para a listagem.'
      Align = alBottom
      Color = clTeal
      DataSource = DsLocalCobranca
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DbgLocalCobrancaDblClick
      OnKeyDown = DbgLocalCobrancaKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'local_Codigo'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Descricao'
          Width = 259
          Visible = True
        end>
    end
    object BitBtn4: TBitBtn
      Left = 312
      Top = 4
      Width = 36
      Height = 25
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn4Click
    end
  end
  inherited RDP: TRDprint
    OnNewPage = RDPNewPage
    OnBeforeNewPage = RDPBeforeNewPage
  end
  object DsTpDoc: TDataSource
    AutoEdit = False
    DataSet = CdsTpDoc
    Left = 408
    Top = 32
  end
  object CdsTpDoc: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 416
    Top = 32
    object CdsTpDoctipd_codigo: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'tipd_codigo'
      Size = 1
    end
    object CdsTpDocdescricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'descricao'
      Size = 40
    end
  end
  object DsLocalCobranca: TDataSource
    AutoEdit = False
    DataSet = CdsLocalCobranca
    Left = 448
    Top = 32
  end
  object CdsLocalCobranca: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 456
    Top = 32
    object CdsLocalCobrancalocal_Codigo: TStringField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'local_Codigo'
      Size = 3
    end
    object CdsLocalCobrancaDescricao: TStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'Descricao'
      Size = 40
    end
  end
  object dtsrcRes: TDataSource
    DataSet = CDSRes
    Left = 164
    Top = 132
  end
  object CDSRes: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 208
    Top = 132
    object CDSResCod: TStringField
      FieldName = 'Cod'
      Size = 10
    end
    object CDSResDescr: TStringField
      FieldName = 'Descr'
      Size = 40
    end
  end
end
